home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / telecomm / bbs / bbbbs84.lha / rexx / bbsPOST.baud < prev    next >
Encoding:
Text File  |  1994-11-11  |  1.9 KB  |  63 lines
  1. /* $VER: bbsPOST.baud 8.3 (11.11.94)
  2. copyright © 1990-94 Richard Lee Stockton
  3. BBBBS Delete User
  4. FREELY DISTRIBUTABLE
  5. */
  6.  
  7. IF OPENPORT('BBSPOST')='0000 0000'x THEN EXIT
  8. x=3
  9. y=11
  10.  
  11. DO loop=1
  12.   t=WAITPKT('BBSPOST')
  13.   p=GETPKT('BBSPOST')
  14.   IF c2d(p)=0 THEN ITERATE loop
  15.   command=GETARG(p)
  16.   PARSE VAR command arg1' 'arg2' 'arg3' 'arg4 .
  17.   t=REPLY(p,0)
  18.   IF arg1='QUIT' THEN
  19.     DO WHILE p~='0000 0000'x    /* empty the port */
  20.       DO
  21.         t=REPLY(p,0)
  22.         p=GETPKT('BBSPOST')
  23.       END
  24.       CALL PostMsg()
  25.       EXIT
  26.     END
  27.   ELSE IF arg1='CONFIG' THEN
  28.     DO
  29.       x=arg2
  30.       y=arg3
  31.       CALL PostMsg()
  32.     END
  33.   ELSE IF arg1='UPDATE' | arg1='RESET' THEN
  34.     DO
  35.       onbb=GETCLIP('BBS_fkeyhelp')
  36.       IF onbb~=1 THEN onbb=0
  37.       IF arg1='RESET' THEN CALL PostMsg()
  38.       temp=''
  39.       DO i=1 TO 5
  40.         c=GETCLIP('BBSPOST'i)
  41.         IF i=5 & ~onbb THEN CALL PostMsg(x,y,temp)
  42.         If i>1 THEN temp=temp'\'
  43.         temp=temp||c
  44.       END
  45.       IF onbb THEN
  46.         DO
  47.           temp=temp'\                       ___________________________'
  48.           temp=temp'\ _____________________|  BBBBS Function Key HELP  |______________________'
  49.           temp=temp'\|                                                                        |'
  50.           temp=temp'\| F1- Chat          F6- Close HELP    S1- Start BBBBS   S6- BUSY         |'
  51.           temp=temp'\| F2- Force OFF     F7- Show Log      S2- QuitFlag ON   S7- UN-BUSY      |'
  52.           temp=temp'\| F3- Change Time   F8- Show Usage    S3- QuitFlag OFF  S8- RAM space    |'
  53.           temp=temp'\| F4- Validate      F9- Close Screen  S4- Toggle Noise  S9- Close Editor |'
  54.           temp=temp'\| F5- Level/Ratio  F10- Show HELP     S5- Bkgnd Arcing S10- Message2User |'
  55.           temp=temp'\|'LEFT('_',72,'_')'|'
  56.           CALL PostMsg(3,11,temp,'BAUD')
  57.         END
  58.       ELSE CALL PostMsg(x,y,temp)
  59.     END
  60. END
  61.  
  62. /* bbsPOST.baud */
  63.